home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 May: Tool Chest / Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / 2.01 sources / Library-2.01 / Interfaces / CommResources.lisp next >
Encoding:
Text File  |  1993-09-16  |  4.6 KB  |  177 lines  |  [TEXT/CCL2]
  1.  
  2. (in-package :traps)             ; 
  3. ;     CommResources.p
  4. ;     Pascal Interface to the Communications Resource Manager
  5. ;     
  6. ;     Copyright © Apple Computer, Inc. 1988-90
  7. ;     All rights reserved
  8. ; 
  9.  
  10. ;;;;;;;;;;;;;
  11. ;
  12. ; Modification History
  13. ;
  14. ; 04/28/93 mwp Release
  15. ; 10/07/92 bill #_initcrm now returns a result code.
  16. ;
  17.  
  18. ; $IFC UNDEFINED UsingIncludes
  19. ; $SETC UsingIncludes := 0
  20. ; $ENDC
  21.  
  22. ; $IFC NOT UsingIncludes
  23.  
  24. ; $ENDC
  25.  
  26. ; $IFC UNDEFINED UsingCommResources
  27. ; $SETC UsingCommResources := 1
  28.  
  29. ; $I+
  30. ; $SETC CommResourcesIncludes := UsingIncludes
  31. ; $SETC UsingIncludes := 1
  32. ; $IFC UNDEFINED UsingOSUtils
  33.  
  34. (require-interface 'OSUTILS)    ; $I $$Shell(PInterfaces)OSUtils.p
  35. ; $ENDC
  36.  
  37. ; $SETC UsingIncludes := CommResourcesIncludes
  38.  
  39. ;     current version of the CRM 
  40. (defconstant $curCRMVersion 2)
  41.  
  42. ;     tool classes (also the tool file types)    
  43. (defconstant $classCM :|cbnd|)
  44. (defconstant $classFT :|fbnd|)
  45. (defconstant $classTM :|tbnd|)
  46.  
  47. ;     constants general to the use of the Communications Resource Manager 
  48. (defconstant $crmType 9)        ; queueType
  49. (defconstant $crmRecVersion 1)  ; version of queue data structure
  50.  
  51. ;     error codes 
  52. (defconstant $crmGenericError -1)
  53. (defconstant $crmNoErr 0)
  54.  
  55. ;     data structures general to the use of the Communications Resource Manager 
  56. (def-mactype :crmerr (find-mactype :signed-integer))
  57.  
  58. (def-mactype :crmrecptr (find-mactype :pointer))
  59. (defrecord CRMRec 
  60.    (qLink (:pointer :qelem))    ; reserved
  61.    (qType :signed-integer)      ; queue type -- ORD(crmType) = 9
  62.    (crmVersion :signed-integer) ; version of queue element data structure
  63.    (crmPrivate :signed-long)    ; reserved
  64.    (crmReserved :signed-integer); reserved
  65.  
  66.    (crmDeviceType :signed-long) ; type of device, assigned by DTS
  67.    (crmDeviceID :signed-long)   ; device ID; assigned when CRMInstall is called
  68.    (crmAttributes :signed-long) ; pointer to attribute block
  69. ; device specific
  70.    (crmStatus :signed-long)     ; status variable - device specific
  71.  
  72.    (crmRefCon :signed-long)     ; for device private use
  73.    )
  74.  
  75.  
  76. (defctbtrap _initcrm () 
  77.   #x0501
  78.   :signed-integer)
  79.  
  80. (defctbtrap _crmgetheader () 
  81.   #x0502 
  82.   (:pointer :qhdr))
  83.  
  84. (defctbtrap _crminstall ((crmreqptr (:pointer :qelem))) 
  85.   #x0503)
  86.  
  87. (defctbtrap _crmremove ((crmreqptr (:pointer :qelem))) 
  88.   #x0504 
  89.   :oserr)
  90.  
  91. (defctbtrap _crmsearch ((crmreqptr (:pointer :qelem))) 
  92.   #x0505 
  93.   (:pointer :qelem))
  94.  
  95. (defctbtrap _crmgetcrmversion () 
  96.   #x0506 
  97.   :integer)
  98.    
  99. (defctbtrap _crmgetresource ((thetype :ostype) 
  100.                              (theid :signed-integer)) 
  101.   #x0507 
  102.   :handle)
  103.  
  104. (defctbtrap _crmget1resource ((thetype :ostype) 
  105.                               (theid :signed-integer)) 
  106.   #x0508 
  107.   :handle)
  108.  
  109. (defctbtrap _crmgetindresource ((thetype :ostype) 
  110.                                 (index :signed-integer)) 
  111.   #x0509
  112.   :handle)
  113.  
  114. (defctbtrap _crmget1indresource ((thetype :ostype) 
  115.                                  (index :signed-integer)) 
  116.   #x050A 
  117.   :handle)
  118.  
  119. (defctbtrap _crmgetnamedresource ((thetype :ostype) 
  120.                                   (name (:string 255))) 
  121.   #x050B
  122.   :handle)
  123.  
  124. (defctbtrap _crmget1namedresource ((thetype :ostype) 
  125.                                    (name (:string 255))) 
  126.   #x050C 
  127.   :handle)
  128.  
  129. (defctbtrap _crmreleaseresource ((thehandle :handle)) 
  130.   #x050D)
  131.  
  132. (defctbtrap _crmgetindex ((thehandle :handle)) 
  133.   #x050E
  134.   :signed-long)
  135.  
  136. (defctbtrap _crmlocaltorealid ((bundletype :ostype) 
  137.                                (toolid :signed-integer) 
  138.                                (thekind :ostype) 
  139.                                (localid :signed-integer))
  140.   #x050F
  141.   :integer)
  142.  
  143. (defctbtrap _crmrealtolocalid ((bundletype :ostype) 
  144.                                (toolid :signed-integer) 
  145.                                (thekind :ostype) 
  146.                                (realid :signed-integer)) 
  147.   #x0510 
  148.   :handle)
  149.    
  150. (defctbtrap _crmgetindtoolname ((bundletype :ostype) 
  151.                                 (index :signed-integer) 
  152.                                 (toolname (:pointer (:string 255))))
  153.   #x0511
  154.   :oserr)
  155.  
  156. (defctbtrap _crmfindcommunications ((vrefnum (:pointer :signed-integer)) 
  157.                                     (dirid (:pointer :signed-long)))
  158.   #x0512
  159.   :oserr)
  160.  
  161. (defctbtrap _crmgettoolresource ((procid :signed-integer) 
  162.                                  (thetype :ostype) 
  163.                                  (theid :signed-integer)) 
  164.   #x0513 
  165.   :handle)
  166.  
  167. (defctbtrap _crmreleasetoolresource ((procid :signed-integer) 
  168.                                      (thehandle :handle))
  169.    #x0514)
  170.  
  171. ; $ENDC
  172.  
  173.  
  174. (export '($crmnoerr $crmgenericerror $crmrecversion $crmtype $classtm $classft
  175.           $classcm $curcrmversion))
  176. (provide-interface 'CommResources)
  177.